home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tk.d64 / memcompare ins.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  1KB  |  43 lines
  1. 10 PRINT"[147][144]";:POKE53281,12:POKE53280,12:PRINTCHR$(14)
  2. 20 FORI=1TO23
  3. 30 READA$
  4. 40 IFA$="[157]"THENGOSUB80:END
  5. 50 PRINTA$
  6. 60 NEXT
  7. 70 GOSUB80:GOTO20
  8. 80 PRINT"      PRESS A KEY TO CONTINUE[146]";
  9. 90 GETB$:IFB$=""THEN90
  10. 100 PRINT"[147]":RETURN
  11. 10000 DATA"          [205][197][205][207][210][217] [195][207][205][208][193][210][197][210]
  12. 10010 [131]"
  13. 10020 DATA"                BY
  14. 10030 [131]"          (null).MID$.(null)OZAKIEWICZ
  15. 10040 DATA"
  16. 10050 [131]"(null)HE PROGRAMMERS AMONG US, PARTICULARLY 
  17. 10060 DATA"THE MACHINE LANGUAGE PROGRAMMERS, 
  18. 10070 [131]"OCCASIONALLY HAVE A NEED TO KNOW IF TWO
  19. 10080 DATA"MEMORY BLOCK CONTAIN IDENTICAL VALUES. 
  20. 10090 [131]"LEFT$ERE IS A UTILITY PROGRAM WRITTEN IN 
  21. 10100 DATA"[194][193][211][201][195] THAT ALLOWS YOU TO COMPARE TWO 
  22. 10110 [131]"BLOCKS OF MEMORY.
  23. 10120 DATA"
  24. 10130 [131]"(null)O USE THE PROGRAM, (null)(null)ATNSTR$ AND (null)(null)(null) (null)EMORY
  25. 10140 DATA"[195]OMPARER. [212]HE PROGRAM WILL PROMPT YOU 
  26. 10150 [131]"FOR THE STARTING ADDRESSES OF THE TWO 
  27. 10160 DATA"MEMORY BLOCKS TO COMPARE. [206][207][212][197]: THE 
  28. 10170 [131]"PROGRAM EXPECTS THE ADDRESSES TO BE IN 
  29. 10180 DATA"HEXADECIMAL (SORRY DECIMAL LOVERS). [217]OU
  30. 10190 [131]"ARE THEN PROMPTED FOR THE LENGTH OF THE
  31. 10200 DATA"BLOCKS. [212]HE LENGTH IS IN DECIMAL 
  32. 10210 [131]"(DECIMAL LOVERS TAKE HEART).
  33. 10220 DATA"
  34. 10230 [131]"(null)OU HAVE THE OPTION OF HAVING THE 
  35. 10240 DATA"OUTPUT TO THE SCREEN OR TO A PRINTER.
  36. 10250 [131]"
  37. 10260 DATA"[217]OU ARE SPARED FROM HAVING TO WATCH ALL
  38. 10270 [131]"OF THE VALUES AS THEY FLASH BY. (null)HE 
  39. 10280 DATA"ADDRESSES AND VALUES (AGAIN, IN HEX) OF
  40. 10290 [131]"ONLY THE UNEQUAL COMPARISONS ARE 
  41. 10300 DATA"DISPLAYED.
  42. 10310 [131]"CMD
  43.